<?php
  $PATH_R    = "";
  $PATH_PROG = "/home/esplet/analitzadors/dades/";

  $cacheExp = 86000;

  $any = $_GET["ANY"];
  $mes = $_GET["MES"];

  $fitxerTmpGraf = $DIR_PROG."grafiques/".$any.sprintf("%02d",$mes).".png";

  if(($any=='') || ($mes==''))
     exit(1); 
 

  function createGraph()
  { 
           global $mes, $any, $PATH_R, $PATH_PROG;

           settype($mes, "integer");

	   $nF=$PATH_PROG.md5(date("U"));
	   $f=fopen($nF,"w");
	   fputs($f, "source(\"graficaMensual.r\");\ngraficaMensual($any,$mes);");
	   fclose($f);

	   system("\"".$PATH_R."\"R --slave --vanilla < $nF");
	   unlink($nF);
  }

  function loadGraph()
  {
           global $fitxerTmpGraf;
           if(file_exists($fitxerTmpGraf))
           {  
              header("Content-type: image/png");
              readfile($fitxerTmpGraf);
           } else echo "No trob el fitxer del grafic...!";
  }
 


  if(file_exists($fitxerTmpGraf))
  {
    if((time()-filectime($fitxerTmpGraf))>$cacheExp)
       createGraph();
  } else
    createGraph();

  loadGraph();
?>
